EditMak Add or Modify project files Form2, Frm_Add 0&Insert Button caption and project's path / name Pic_Add Txt_Caption Txt_Source Frm_MakList Button &Nro. Lst_MakFiles Pic_Ok wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwww "$Gwx """Dww """$Gwx """"Dww """"$Gwx """""Dww "$Gwx ""Dww ""Dwx "$Gwx "$Gwx Pic_Ok DGwwwx "Dwwww "$Gwwwx """Dwwww """$Gwwwx """"Dwwww """"$Gwwwx """""Dwwww "$Gwww ""Dwwwx "$Gwww ""Dwwwx "$Hwwwx "$Hwww "$Hww wwwwwwwwwwwwwwwwwwwwwwwwwwwwww Pic_Br wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwww Pic_Br xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxx wwwwwwwwwwwwwwwwwwwwwwwwwwwwwx Pic_Cn wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwww Pic_Cn wwwxxxxxxxxxxxxxxxxxx wwwxxxxxxxxxxxxxxxxx wwwwwwwwwwwwwwwwwwwwwwwwwwwwww Lbl_Info FALSE FIRST_CLICK SECOND_CLICKd WhichClick LastItemFocus Cmd_Add_Click Index WriteButton Projects+ ReadButton EditMak Browse @ Form_Load Screen Width Height Lst_MakFiles} Cmd_Project Caption Lst_Makfiles_Dblclick( GetIndex ListIndex Txt_Caption Text` Txt_Source Lst_MakFiles_Click ItemFocusE Pic_Ok_MouseDown Button Shift Pic_Okf Visiblec Pic_Ok_MouseUpY Pic_Cn_MouseDownu Pic_Cn Pic_Cn_MouseUp6 Pic_Br_MouseDownH Pic_Br Pic_Br_MouseUp Form_Paint0 TreeD Lbl_Info Frm_Add Frm_MakList Pic_Ok_GotFocus BorderStyle Pic_Ok_LostFocus+ Pic_Cn_GotFocus? Pic_Cn_LostFocusS Pic_Br_LostFocus^ Pic_Br_GotFocus Lst_MakFiles_MouseMove Form_Unload Cancel Form_MouseMove Txt_Caption_ChangeS Pic_Add_Click Pic_Add_MouseMove Pic_Br_MouseMove Pic_Cn_MouseMove) Pic_Ok_MouseMovex KEY_ENTER} Pic_Br_KeyDown KeyCode MouseUp Pic_Br_KeyPress KeyAscii Pic_Cn_KeyDown Pic_Ok_KeyDown ChCaption BtnToCh BtnProjects BtnFromCh Frm_MakList_DragDrop) Source IDYES: YESNO Answer BtCapt BtCmdLine Lst_MakFiles_KeyPress Lst_MakFiles_KeyDown Lst_Makfiles_Doubleclic Lst_Makfiles_Doubleclick Changes For editing and adding mak files to determine- Click and DoubleClickg Form_Load Center form to the screen, load all buttons- to list array and set Click as FIRST_CLICK.- Lst_Makfiles_Dblclick This procedure save changes made for Project buttons, but does not writee changes to vbproj.ini until user has clicked OK Button. Write changes and restore Click Procedure. Lst_MakFiles_Click This procedure displays current project file and it's- caption assigned to button. If user click first time and after that changes project file and its caption, save first Click and give user chance to make modification permanent by DoubleClicking active item in list array. ItemFocus store the index in list array to allow save- modifications by DoubleClicking active item in list array. See DoubleClic Procedure.i save current list item index for allowing DoubleClick. Pic_Ok_MouseDown Pic_Ok_MouseUp Pic_Cn_MouseDown Pic_Cn_MouseUp If user cancel modifications, we have to read button properties again from vbproj.ini to makel sure that proper tag properties for buttons ares correct. Pic_Br_MouseDown Pic_Br_MouseUp Form_Paint Give controls a 3-D look. See TreeD Sub in vbproj.bas module. Draw Line just above Lbl_Info to separatea it from rest of form (statusbar style).y down$ Pic_Ok_GotFocus When user moves with TAB to a different Picture- button control, give borders around it toi show it is a control that has focus. Remove borders when control loose focus, in LostFocus Procedure. Pic_Ok_LostFocus Pic_Cn_GotFocus When user moves with TAB to a different Picture button control, give borders around it toi show it is a control that has focus. Remove borders when control loose focus, in LostFocus Procedure. Pic_Cn_LostFocus Pic_Br_LostFocus Pic_Br_GotFocus When user moves with TAB to a different Picture button control, give borders around it toi show it is a control that has focus. Remove borders when control loose focus, in LostFocus Procedure. Lst_MakFiles_MouseMove Choose Button to modify, give button's caption and project's path. When complete assign new values with DoubleClick or press ENTER Form_MouseMove Move mouse pointer above control to see more info about it Pic_Add_MouseMove This picture control give info to user about caption and path, because frame and textbox does not havei MouseMove events.- Give button's caption and project's path for selected button in list box Pic_Br_MouseMove Loads a browse window for browsing desired Visual Basic project file to be assigned to a button" Pic_Cn_MouseMove Cancel all changes have made to buttons" Pic_Ok_MouseMove Write changes to vbproj.ini" Pic_Br_KeyDown Pic_Cn_KeyDown Pic_Ok_KeyDown Lst_MakFiles_KeyDown